home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / GETRNG.f < prev    next >
Text File  |  1992-07-31  |  1KB  |  36 lines

  1.       SUBROUTINE GETRNG(IST,LAST,IARR)  
  2. *-----------------------------------------------------------------------
  3. *   
  4. *   Gives positions of '(' and ')' in SSTA (no string check !)  
  5. *   
  6. *   Input   
  7. *   IST     starting position of scan   
  8. *   LAST    last position of scan   
  9. *   
  10. *   Output  
  11. *   IARR(1)          # of '(...)'   
  12. *   IARR(2)          pos. of first '('  
  13. *   IARR(3)          pos. of first ')'  
  14. *   IARR(4)          pos. of second '(' 
  15. *                    etc.   
  16. *-----------------------------------------------------------------------
  17.       include 'PARAM.h' 
  18.       include 'ALCAZA.h' 
  19.       DIMENSION IARR(*) 
  20.       N=0   
  21.       IPT=IST-1 
  22.    10 CONTINUE  
  23.       IND=INDEX(SSTA(IPT+1:LAST),'(')   
  24.       IF (IND.EQ.0) GOTO 20 
  25.       IPT=IPT+IND   
  26.       CALL SKIPLV(SSTA,IPT+1,LAST,.FALSE.,IND,ILEV) 
  27.       IF (IND.EQ.0) GOTO 20 
  28.       N=N+1 
  29.       IARR(2*N)=IPT 
  30.       IARR(2*N+1)=IND   
  31.       IPT=IND   
  32.       IF (IPT.LT.LAST) GOTO 10  
  33.    20 CONTINUE  
  34.       IARR(1)=N 
  35.       END   
  36.